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PERG SAS Programs 



Program Names 


Description of program 


IDMERG5.SAS 


Inputs data from Venture One (variables include Venture One unique 
identification number, Company name, round type, date of round, amount 
raised in round, postvaluation of Company), merges Venture One data with 
SIC codes (files idl.prn, id2.prn, id3.prn), adds hand-collected missing ipo and 
acquisition postvaluation information (file: missipo.prn), eliminates duplicates. 






1NDEX29.SAS 


Computes marked-to-market industry returns for each company. The adjusted 
value for every firm is "valueO" 






PRICE29.SAS 


Creates "IndexO" - index of all firms in every month. 






DEPR2.SAS 


Calculates the empirical distribution by month of successful financings 1-2 and 
2-L. A. "successful" financing is any around that goes off at least half the 
value of Gompers-Lerner current valuation. These distributions are called 
"depr12" and "deprL2". 

Uses the depreciation series to adjust every firm in every month from its 
valueO. This new value is called "valuel". 






PRICEJDEPR.SAS 


Creates "Indexl" - index of all firms in every month. 






MACROLIQ6.SAS 


Calculates the fraction of all eligible first-round financings in each month that 
receive a second-round financing that month. An "eligible" financing is one 
that occurred at least six months ago but no more than two years ago. This 
series is called 'trad 2" ( equivalent to "LIQ 12) 






MACROLIQ6_2L.SAS 


Calculates the fraction of eligible second-round financings that receive a later- 
round financing that month. An "eligible" financing is one that occurred at least 
six months ago but no more than two years ago. This series is called "frac2L". 
(equivalent to LIQ_L2) 






MACROVAL3.SAS 


Calculates the average "stepup" (equivalent to Ratio) in each month T from 
round 1 to round 2. Series is called "stepupl 2". (equivalent to VAL 12) 






MACROVAL3_2LSAS 


Calculates the average "stepup" (equivalent to Ratio) in each month T from 
round 2 to later/exit. Series is called "stepup2L". (equivalent to VAL L2) 






REGRESS2.SAS 


Regresses the change in Indexl for each month T on NASDAQ returns in 
month T, and the month T-1 values of frac12, frac2L, stepup12, and stepup2L. 

Computes month-T fitted values for these changes using the estimated 
coefficients (excludes NASDAQ) and the four month T values. This series is 
called "adjustment". 

Multiplies Valuel by Adjustment for every firm in every month. This new value 
is called "Value2". 






PRICE MACRO.SAS 


Creates "Index2" - index of all firms in every month. 






FEES29.SAS 


Calculates returns taking out fees and carried interests. Creates "Index3". 
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DEPR2 . SAS 



options Is = 120 ps = 20000; 

libname liquid ' -/microliq/ ' ; 

libname perg 1 ~/vcdata2/ 1 ; 

filename tradedt ' ~/vcdata2 /dates. txt 1 ; 

libname data ' -/data/ ' ; 

data index; 

set perg . index2 9 ; 

proc sort; 

by vlid2 count; 

data index; 

set index; 

by vlid2 count; 

if fir st. count then mol = mo; 

retain mol; 

drop mo; 

proc sort ; 

by year month; 

/fS ASSIGN TRADE DATE NUMBER */ 

d&Ma. trade; 
hll set data.crsp; 

Q month = month (date); 
Ifj year - year (date); 
,'7- s day = day ( date ); 
?t if date >= ' 01janl980 'd; 

# keep date month year day key; 

pipe sort nodupkey; 

3^ by key year month; 

data trade; 

Li set trade; 

|4 by key year month; 

if first. key then mo = 0; 
mo = mo + 1; 
retain mo; 
mo 2 = mo ; 
drop key; 

keep month year mo2; 

proc sort; 

by year month; 

data index; 

merge index (in =a) trade; 
by year month; 
if a; 

months = mo2 - mol; 

proc sort; 

by vlid2 count year month ; 

data index; 

set index; 

by vlid2 count year month; 

lpost = lag (post); 

if first. count then lpost = .; 

/* CAL CUALAT ION OF DEPRECIATION */ 

/* STEP1 : DETERMINE SUCCESSFUL FINANCING */ 



data stepl; 

set perg. index29; 
if num = 1; 
keep count; 

proc sort data = stepl; 
by count; 

proc sort data = index; 
by count; 

data success; 

merge index (in = a) stepl (in = b) ; 
by count; 
if b; 

success = preval/lpost; 

if success = . then delete ; 

/* FIRST ROUND */ 

data vlup; 

set perg.vlupmergS; 

prtfc sort; 

by vlid2 date; 

daga first; 
%l set vlup; 
C3 if num =1; 
fn month = month (date); 
tjh year = year (date); 

f.\ day = day (date); 

sasdate = mdy (month, day, year) ; 
^ rtypel = rtype; 

numl = num; 
Is* mol = mo; 
U key = 1; 

> keep vlid2 numl rtypel year month key mol; 

pJefc sort nodupkey; 
|M by vlid2 rtypel year month; 

data first2; 

set vlup; 
if num =2; 

month = month (date) ; 

year = year (date); 

day = day (date) ; 

sasdate = mdy (month, day, year); 
rtypel = rtype; 
numl = num; 
mol = mo; 
key = 1; 

keep vlid2 numl rtypel year month key mol; 

proc sort nodupkey; 

by vlid2 rtypel year month ; 

proc sort; 

by year month; 

data second; 

set success; 

if (num = 2 and success >=.5) ; 
if year >= 1980; 

keep vlid2 year month rtype num mo2 ; 

proc sort nodupkey; 

by vlid2 year month; 

A3 



proc sort; 

by vlid2 ; 

proc sort data = first; 
by vlid2 ; 

data combo; 

merge second (in = a) first (in = b) 
by vlid2 ; 
if a; 

months = mo2 - mol; 
key = 1; 

if (year > 1986 and year < 1995) ; 

/* Second to Later */ 

data later; 

set success; 

if (num > 2 and success >=.5) ; 
if year >= 1980; 

keep vlid2 year month rtype num mo 2 

proc sort nodupkey; 
O by vlid2 year month; 

prj^c sort; 

by vlid2 ; 

pffc sort data = first2; 
If! by vlid2 ; 

d§fca combo2; 

merge later (in = a) first2 (in = b) ; 
'I by vlid2 ; 
if a; 

months = mo 2 - mol; 
|^ key = l; 

Jz if (year > 1986 and year < 1995) ; 

/4^L - 1 to 2*/ 

proc means data = combo noprint; 
var key; 

output out = count sum =tot; 

data count; 

set count; 
keep tot; 

proc sort data = combo; 
by months; 

proc means data = combo noprint; 
var key; 
by months; 

output out = test sum = sum; 

data test; 

set test; 
key =1; 

keep months sum key; 

proc sort; 

by key; 

data count; 

set count; 
key = i; 



keep tot key; 



proc sort; 

by key; 

data DEPR; 

merge test (in =a) count (in =b) ; 
by key; 
if a; 

depr= sum/ tot; 

if months = . then delete; 

proc sort; 

by months; 

data temp; 

set trade; 
months = mo2; 
keep months; 

data temp2; 

set temp; 
months = 0; 

Pipoc sort nodupkey; 
by months; 

dalta temp; 

\Q set temp2 temp; 

•Pi 

W0 C sort; 

by months; 

dMla DEPR; 
# merge depr temp (in =b) ; 
|4 by months; 
U if b; 
U key = 1; 

pifSc sort; 
13 by key; 

data depr; 

set depr; 
by key; 

if depr = . then depr = 0; 

if first. key then cdf = 0; 

if first. key then lcdf = 0; 

cdf = cdf + depr; 

retain cdf ; 

lcdf = lag (cdf) ; 

deprl2 = (1 - cdf)/(l - lcdf ) ; 

keep months depr cdf lcdf deprl2 key; 

proc sort; 

by key; 

data depr; 

set depr; 
by key; 

if first. key then deprA = deprl2; 
if deprl2 " = . then deprA = deprl2; 
retain deprA; 
deprl2 = deprA; 

if months = 0 then depr 12 = l ; 
drop key deprA; 
keep months deprl2; 

proc sort; 

by months; 



/* ALL - 2 to L*/ 

proc means data = combo2 noprint; 
var key; 

output out = count sum =tot; 

data count ; 

set count; 
keep tot; 

proc sort data = combo2; 
by months; 

proc means data = combo2 noprint; 
var key; 
by months; 

output out = test sum = sum; 

data test; 

set test; 
key =1; 

keep months sum key; 

ppfC sort; 
% by key; 

dl§a count; 
%Q set count; 

43 ^7 = 1; 

!|| keep tot key; 




►c sort; 
by key; 



dila DEPR2; 

H merge test (in =a) count (in = 

by key; 
% if a; 
J! depr= sum/ tot; 
W if months s . then delete; 

proc sort; 

by months; 

data temp; 

set trade ; 
months = mo 2 ; 
keep months; 

data temp2; 

set temp; 
months = 0; 

proc sort nodupkey; 
by months; 

data temp; 

set temp2 temp; 

proc sort; 

by months; 

data DEPR2; 

merge depr2 temp (in =b) ; 
by months; 
if b; 
key = l; 

proc sort ; 



by key; 

data ciepr2; 

set depr2 ; 
by key; 

if depr = . then depr = 0; 

if first. key then cdf = 0; 

if first. key then lcdf = 0; 

cdf = cdf + depr; 

retain cdf; 

lcdf = lag (cdf) ; 

depr2L = (1 - cdf)/(i - lcdf ) ; 

keep months depr cdf lcdf depr2L key; 

proc sort; 

by key; 

data depr2; 

set depr2; 
by key; 

if first. key then deprA = depr2L; 

if depr2L A = . then deprA = depr2L; 

retain deprA; 

depr 2 L = deprA; 
n if months = 0 then depr2L = 1; 
™* drop key deprA; 
^ keep months depr2L; 

prgc sort; 
ip by months; 

iii 

Merge with Index*/ 

w 

pKoc sort data = index; 
by months; 

d4ta index; 
%J merge index (in =a) depr; 
by months; 

S3 if a; 

data liquid. index29_l ; 

merge index (in =a) depr2; 
by months; 
if a; 

yaluel = value0*deprl2 ; 

if numtemp > 2 then valuel = valueO*depr2L; 

proc sort; 

by vlid2 rtype count year month; 



proc print data = depr; 
proc print data = depr2; 



endsas; 
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MACROVAL3_21.sas 

yoptions Is = 80 ps = 20000; 

libname macro '-/macro/'; 

libname perg 1 -/microliq/ 1 ; 

libname perg2 ' ~/vcdata2/ ' ; 

filename tradedt ! ~/vcdata2/dates . txt 1 

libname data 1 -/data/ ' ; 

data index; 

set perg.index29_l; 

proc sort; 

by vlid2 count; 

data index; 

set index; 

by vlid2 count; 

if first. count then mol = mo; 

retain mol; 

drop mo; 

proc sort; 
S3 by year month; 

/*Q ASSIGN TRADE DATE NUMBER */ 

d|fia trade; 
M set data.crsp; 

III month = month (date); 

%8 year = year (date); 

||| day = day (date) ; 

if date >= 1 01janl980 T d; 
\^ key = l; 

keep date month year day key; 

p|ac sort nodupkey; 
J: by key year month; 

dftfa trade; 
jps set trade; 

by key year month; 
if first. key then mo = 0; 
mo = mo + 1; 
retain mo; 
mo2 = mo; 
drop key; 

keep month year mo2 ; 

proc sort; 

by year month; 

data index; 

merge index (in =a) trade; 
by year month; 
if a; 

months = mo2 - mol; 

proc sort; 

by vlid2 count year month; 

data index; 

set index; 

by vlid2 count year month; 

lpost = lag (post) ; 

if first. count then lpost = . ; 

/* CALCUALATION OF DEPRECIATION */ 



/* STEP1 : DETERMINE SUCCESSFUL FINANCING */ 



data stepl; 

set perg.index29_l; 
if num = 1; 
keep count; 

proc sort data = stepl; 
by count; 

proc sort data = index; 
by count; 

data success; 

merge index(in = a) stepl (in = b) ; 
by count; 
if b; 

success = preval/lpost; 

if key = "A" then success = postvall/lpost ; 
if success = . then delete; 



/* FIRST ROUND */ 

data vlup; 
M set perg2 . vlupmergS; 

%! 

p^c sort; 

by vlid2 date; 

dp*a first; 
¥^ se t vlup; 
^fl if num =2; 
;iy month = month (date) ; 
^ year = year (date); 

i,L day = day (date); 
f7 sasdate = mdy (month, day, year); 
f := rtypel = rtype; 
¥ k numl =s num; 

mol = mo; 
Q k ^y = 1; 

keep vlid2 numl rtypel year month key mol; 

proc sort nodupkey; 

by vlid2 rtypel year month; 
proc sort; 

by year month; 

data first; 

set first; 

drop year month; 

data second; 

set success; 

if num > 2; 

if year >= 1980; 

keep vlid2 year month rtype num mo2 success; 

proc sort nodupkey; 

by vlid2 year month; 

proc sort; 

by vlid2 ; 

proc sort data = first; 
by vlid2 ; 

data combo; 

merge second (in = a) first (in = b) ; 
by vlid2 ; 



if b; 

if success > .5; 



proc sort; 

by year month; 

proc means data = combo noprint; 
var success; 
by year month; 

output out = macroval mean = stepup2L; 

data macro. step2L; 

set macroval; 

proc print data = macroval; 
endsas; 
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FEES29*SAS 



options Is = 80 ps - 20000 ; 

libname laj 1 -/ data/ ' ; 

libname PERG 1 ~/vcdata2/ 1 ; 

filename tradedt ' ~/vcdata2/ dates . txt 1 ; 

libname perg2 ' -/macro/ ' ; 

/* CALCULATION OF RETURNS TAKING OUT FEES AND PROFIT SHARE */ 

data all; 

set perg2 . index2 9_2 ; 

proc sort; 

by vlid2 count rtype year month; 

/* CALCULATION OF FEES */ 

data cuml; 

set all; 

by vlid2 count rtype year month; 
if first. count; 

if (rtype = "ACQ" j rtype = "IPO") then delete; 

pr||c sort; 

by year; 

prilc means data = cuml noprint; 
var raised; 
by year; 

*J output out = feesfile sum = cumcap; 

dahlia feesfile; 
m set feesfile; 
r y- fee = (.02/12)* cumcap; 
l^i If eel = lag (fee) ; 
; r " lfee2 = lag2(fee); 
^ lfee3 = lag3 (fee) ; 
4= lfee4 - lag4(fee); 
O IfeeS = lags (fee) ; 
lfee6 = lag6(fee); 
lfee7 = lag7 (fee) ; 
lfee8 = lag8 (fee) ; 
lfee9 = lag9(fee); 



if 


lfeel 




then 


lfeel 




0 


if 


lfee2 




then 


lfee2 




0 


if 


lfee3 




then 


lfee3 




0 


if 


lfee4 




then 


lfee4 




0 


if 


IfeeS 




then 


IfeeS 




0 


if 


IfeeS 




then 


IfeeS 




0 


if 


lfee7 




then 


lfee7 




0 


if 


IfeeS 




then 


lfee8 




0 


if 


lfee9 




then 


lfee9 




0 



feetot = (lfeel + lfee2 + lfee3 + lfee4 + IfeeS + lfee6 + lfee7 + 

If ee8 + If ee9) ; 
keep year fee cumcap feetot; 



proc sort data = all;; 

by vlid2 count rtype year month; 

data all; 

set all; 

by vlid2 count rtype year month; 
if first. count then fund = year; 
retain fund; 



/******** j 



/* CALCULATION OF PRE AND POST */ 



data prepost; 

set all; 

by vlid2 count rtype year month; 
pre = value2; 
post = value2; 

if first. count then pre = . ; 

if first. count then post = raised; 

proc sort; 

by year month; 

proc means data = prepost noprint; 
var pre post; 
by year month; 

output out = prepost sum = pre post ; 

/* Profits */ 

data profits; 
O set all; 

M3 by vlid2 count rtype year month; 
amtret = 0; 

Jp ; if (key = "A" | key = "I") then amtret = f racown*postvall; 
J*{ keep fund vlid2 rtype year month fracown postvall amtret; 



data cumcap; 

set feesfile; 
fund = year; 
keep fund cumcap ; 

proc sort; 

by fund; 

data profits; 

merge profits (in =a) cumcap; 
by fund; 
if a; 

proc sort; 

by fund year month; 

data profits; 

set profits; 

by fund year month; 

if first. fund then cumret = 0; 

cumret = cumret + amtret; 

retain cumret; 

data profits; 

set profits; 

by fund year month; 

lcumret = lag (cumret); 




means data = profits noprint; 
var amtret; 
by fund year month; 
output out = profits sum = amtret; 



sort ; 

by fund year month; 



pre^c sort; 
; s r ^ by fund year month; 

Calculate Profits */ 



if first. fund then leumret = .; 

if cumret < cumcap then profit = 0; 

if cumret > cumcap then profit = .200*amtret; 

if (leumret < cumcap & cumret > cumcap) then profit = 

.20 * (cumret - cumcap); 

proc sort; 

by year month; 

proc means data = profits noprint ; 
var cumret amtret profit; 
by year month; 

output out = fees sum = cumret amtret profit; 



proc sort; 

by year ; 

proc sort data - feesfile; 
by year; 

data fees; 

merge fees (in =a) feesfile; 
by year ; 
Q if a; 

4\ drop __TYPE FREQ_; 

p^c sort; 
7% by year month; 

dlkBa final; 
%Q merge prepost (in=a) fees; 
Id by year month; 
if a; 

7 : pre__ minus = pre - profit; 

f"" post_plus = post - amtret + fee ; 

p4©c sort; 

.£ by year month; 

ddffa final; 

ps set final; 

by year month; 

if first. year then lpost_j>lus = .; 
lpost_j?lus = lag (post_plus) ; 

if ((key = "A" | key = "I") and pre_minus = .) then lpost_plus =.; 

retme = pre_minus; 

ret = pre__minus/lpost_plus; 

proc sort data = final; 

by year month; 

proc means data = final noprint; 
var retme lpost_ plus; 
by year month; 

output out = final sum = retme tot; 

data final; 

set final; 

finret = retme/tot - 1; 

proc print data = final; 

data final; 

set final; 

if year > 1989; 

key = l; 

keep year month finret key; 
proc sort ; 

f03 



by key year month ; 



data cumret; 

set final; 
by key year month; 
if fir st. key then cum =0; 
cum = (1 + cum)*(l+ finret) -1; 
retain cum; 
keep year month cum; 

proc print data = cumret ; 



EHDSAS ; 
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PRICE2 9 . SAS 



options Is = 80 ps = 20000 ; 



libname laj ' -/data/ 1 ; 

libname PERG * ~/vcdata2/ 1 ; 

filename tradedt 1 ~/vcdata2 /dates . txt 1 ; 

/* Value -weighted index */ 

data vlup; 

set perg. index29; 

proc sort data = vlup; 

by vlid2 count rtype year month; 

data vlup; 

set vlup; 

by vlid2 count rtype year month; 
lprice = lag(valueO); 
if first. count then lprice = .; 
ret = valueO/lprice - 1; 

if (ret = . | lprice = . ) then retme = .; 
H else retme = (1 + ret) * lprice; 
drop depr key ; 

pipe sort; 
: %Q by year month; 

pglc means data = vlup noprint; 
^ var retme lprice; 

year month; 
n output out = base sum = retme tot; 

df&a vlup; 

set base; 
%~ finret = retme/tot - 1; 

piksc print data - vlup; 

data final; 

set vlup; 

if year > 1989; 

key = 1; 

keep year month finret key; 

proc sort; 

by key year month; 

data cumret; 

set final; 

by key year month; 

if first. key then cum =0; 

cum = (1 + cum)*(l + finret) -1; 

retain cum; 

proc print data = cumret; 



endsas; 



AV5 



PRICE_DEPR.SAS 

options Is = 80 ps = 20000 ; 



libname laj 1 -/data/ 1 ; 

libname PERG ' -/microliq/ 1 ; 

filename tradedt 1 ~/vcdata2/dates . txt ' ; 

/* Value -weighted index */ 

data vlup; 

set perg.index29_l; 

proc sort data = vlup; 

by vlid2 count rtype year month; 

data vlup; 

set vlup; 

by vlid2 count rtype year month; 
lprice = lag(valuel); 

* Ivid = lag(vlid2) ; 

* Irtype = lag (rtype); 

if first. count then lprice = .; 
*C| if (lvid A =vlid2 & rtype = Irtype) then lprice = .; 
*;,r| if (key = "A" & postvall = .) then lprice = .; 

* J| if (key = "1" & postvall = .) then lprice = .; 
*Z ret = valuel/lprice - 1; 

* J! if ret = . then lprice = 0; 

* y if ret = . then ret = 0; 

Pi if (ret = . | lprice = J then retme = .; 

else retme = (1 + ret) * lprice; 
| s | ■ drop depr key ; 
*^ if vlid2 = 1110; 

* !\ if ret < -.6 then delete; 

* i? ss drop retme lprice; 

* H keep vlid2 rtype year month price lprice ret postvall raised; 

prW sort; 
S by year month; 

proc means data = vlup noprint; 
var retme lprice; 
by year month; 

output out = base sum = retme tot; 

data vlup; 

set base; 

finret = retme/tot - 1; 

proc print data = vlup;; 

data perg.price_depr; 
set vlup; 

keep year month finret; 



data final; 

set vlup; 

if year > 1989; 

key = 1; 

keep year month finret key; 

proc sort; 

by key year month; 

data cumret; 

set final; 

by key year month; 



if first. key then cum =0; 

cum = (l + cum)*(l + finret)-l; 

retain cum; 

proc print data = cumret; 



endsas ; 

data vlup; 

merge vlup (in = a) base; 
by year month; 
if a; 

wgt = price/total; 

vwgt = price * wgt; 

keep vlup year month price vwgt; 

proc sort data = vlup; 
by year month; 

proc means data = vlup noprint; 
var vwgt; 
by year month; 
^ output out = index sum = level; 

d^ia index; 
%f| set index; 

llevel = lag (level); 
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return = (level - llevel) /llevel ; 
if year > = 1985; 



p^c print data = index; 
erjdsas; 



statistic - percentage increase in price over marked- to -market price */ 



d##a diff; 
J set vlup; 
p if rnuml = "ACQ" ; 
;u if postvall = . then delete; 

diff = (postvall - mprice) /mprice; 



proc means data = diff noprint; 
var diff; 

output out= test mean = ave; 
proc print data = test; 

data diff; 

set vlup; 

if (rnuml = "ACQ " | rnuml = "PUB") ; 

if postvall = . then delete; 

diff = (postvall - mprice) /mprice; 

proc means data = diff noprint; 
var diff; 

output out= test mean = ave; 
proc print data = test; 
endsas; 



PRICEJYtACRO . SAS 

options Is = 80 ps = 20000 ; 



libname laj ' -/data/ 1 ; 

libname PERG '-/macro/ 1 ; 

filename tradedt ' ~/vcdata2/dates - txt ' ; 

/* Value -weighted index */ 

data vlup; 

set perg. index2 9_2; 

proc sort data = vlup; 

by vlid2 count rtype year month; 

data vlup; 

set vlup; 

by viid2 count rtype year month; 
lprice = lag(value2); 
if first. count then lprice = . ; 
ret = value2 /lprice - 1; 
if (ret = . | lprice = .) then retme = 
else retme - (1 + ret) * lprice; 
Ci drop depr key ; 

P£?c sort; 

by year month; 

pfgc means data = vlup noprint; 
;J1 var retme lprice; 
id bv year month; 

output out = base sum = retme tot; 

dafei vlup; 

set base; 
|M finret = retme/ tot - 1; 

prJSp print data = vlup;; 

dafea final; 

set vlup; 

if year > 1989; 

key = 1; 

keep year month finret key; 

proc sort; 

by key year month ; 

data cumret; 

set final; 

by key year month; 

if first. key then cum =0; 

cum = (1 + cum)*(l + finret) -1; 

retain cum; 

proc print data = cumret; 



ends as; 



MACROVAL3 . SAS 

options Is = 80 ps = 20000; 

libname macro '-/macro/ 1 ; 

libname perg 1 -/microliq/ 1 ; 

libname perg2 ■ ~/vcdata2/ ' ; 

filename tradedt ' ~/vcdata2 /dates . txt 1 ; 

libname data 1 -/data/ ' ; 

data index; 

set perg. index2 9_l; 

proc sort; 

by vlid2 count year month; 

data index; 

set index; 

by vlid2 count year month; 

Ipost = lag (post) ; 

if first. count then lpost = . ; 

/* C ALCUAL AT I ON OF DEPRECIATION */ 

/Q STEP1 : DETERMINE SUCCESSFUL FINANCING */ 

da&a stepl; 

set perg.index29_l; 
^ if num = 1; 
W keep count; 

prjc sort data = stepl; 
|!j by count; 

pfoc sort data = index; 
by count; 

d|^a success; 
> merge index (in = a) stepl (in = b) ; 
*~ by count; 
;M if b; 

H success = preval/lpost; 

if key = "A" then success = postvall/lpost ; 
if success = . then delete; 

/* FIRST ROUND */ 

data vlup; 

set perg2 .vlupmergS; 

proc sort; 

by vlid2 date; 

data first; 

set vlup; 
if num =1; 

month = month (date); 

year = year (date) ; 

day = day (date) ; 

sasdate = mdy (month, day, year); 
rtypel = rtype; 
numl = num; 
mol = mo; 
key = 1; 

keep vlid2 numl rtypel year month key mol; 

proc sort nodupkey; 

by vlid2 rtypel year month; 

data first; 



set first; 

drop year month; 



data second; 

set success; 
if num =2; 
if year >= 1980; 
if success > .5; 

keep vlid2 year month rtype num mo2 success; 

proc sort nodupkey; 

by vlid2 year month; 

proc sort; 

by vlid2 ; 

proc sort data = first; 
by vlid2 ; 

data combo; 

merge second (in = a) first (in = b) ; 
by vlid2 ; 
if b; 

pfgc sort; 
Jf! by year month; 

pr-jgc means data = combo noprint; 
^1 var success; 
Q by year month; 

f|! output out = macroval mean = stepupl2; 

macro . step 12 ; 
^ set macroval; 

pr^ print data = macroval; 
ericas ; 



MACR0LIQ6_21.sas 

options Is = 120 ps = 20000; 

libname macroliq '-/macro/'; 
libname perg 1 -/microliq/ ' ; 
libname perg2 ' ~/vcdata2/ ' ; 
filename tradedt • ~/vcdata2/dates . txt » ; 
libname laj ' -/data/ ' ; 

/* Calculation of LIQ_12 */ 

data first; 

set perg2 .vlupmergS; 
if num = 2; 

if (rtype = "ACQ" | rtype = "IPO") then delete; 
month = month (date); 
year = year (date) ; 
code = l; 

proc sort; 

by year month; 

proc means data = first noprint; 
O var code; 
Jl by year month; 
•JS output out = first sum = key; 

da*|a first; 
C| set first; 
||| lkey7 - lag7 (key) ; 
,J| IkeyS = lags (key) ; 
1b | lkey9 = lag9 (key) ; 
' IkeylO = laglO(key) 
* lkeyll = lagll(key) 
H lkeyl2 = lagl2(key) 
U lkeyl3 = lagl3 (key) 
|^ lkeyl4 = lagl4 (key) 
> IkeylB = laglS (key) 
3" IkeylS = lagl6(key) 
;^ lkeyl7 = lagl7 (key) , 
F lkeyl8 = laglS (key) 

lkeyl9 = lagl9 (key) 

lkey20 = lag20(key) 

lkey21 = lag21(key) 

lkey22 = lag22 (key) 

lkey23 = lag23 (key) 

lkey24 = lag24 (key) 

total = lkey7 + IkeyS + lkey9 + IkeylO + lkeyll + lkeyl2 + 

+ ^ eyl4 + lkey15 + lkey16 + lke ^ 17 + lke y 18 + lkeyl9 + lkey2 0 + 
lkey21 + lkey22 + lkey23 + lkey24; Y 

keep year month total; 

/* STEP1 : DETERMINE SUCCESSFUL FINANCING OF ACQUISTIONS */ 

data stepl; 

set perg.index29_l; 
if num = 1; 
keep count; 

proc sort data = stepl; 
by count; 

data index; 

set perg.index29 1; 



proc sort data = index; 
by count; 



data success; 

merge index (in = a) stepl (in = b) ; 
by count; 
if b; 

success = preval/lpost ; 
if key = "A" then success = postvall/lpost ; 

keep vlid2 count Ipost preval raised postvall success month year 
rtype num key; 



data second; 

set success; 
if num > 2; 
group = 0; 

if key = "I" then group = 1; 
if key = "A" then group = 2; 
key2 = key; 

keep year month num vlid2 rtype group success key2 ; 

data second; 

set second; 
key = l; 

if (key2 = "A" and success < .5) then delete; 

ppoc sort; 

b y group year month ; 

pir^c means data = second noprint; 
4] var key; 

f!| by group year month ; 
^ output out = stat sum = key; 



dajfa all; 

merge first second; 

by year month ; 

frac2L = key/ total; 

keep year month total key frac2L; 

data macroliq.frac2L; 
set all; 

keep year month frac2L; 



proc print data =all; 
endsas ; 




sort data - second; 
by year month; 



means data = second noprint; 
var key; 
by year month; 

output out= second sum = key; 



INDEX2 9.SAS 

options Is = 120 ps = 20000 ; 

libname laj ■ -/data/ T ; 

libname PERG 1 ~/vcdata2/ 1 ; 

filename tradedt ' ~/vcdata2/dates*txt ' ; 

/* use raised values to impute for missing postval information using 
average raised/postval percentage by round type */ 

/* Step 1: Calculate Implied vc ownership fraction by rtype, year and 
month */ 

data vlupmerg ; 

set perg .vlupmerg 5 ; 
key = 1; 

proc sort; 

by vlid2 rtype year month; 

/* Duplicate ACQ and IPO */ 

data dup; 
■H set vlupmerg; 

% if (rtype = "ACQ" | rtype = "IPO"}; 
^ keep vlid2 rtype year month; 

p£g>c sort; 
O by vlid2 rtype; 

daia dup2; 
7^1 set dup; 
^ lvlid2 = lag(vlid2); 
3 if vlid2 = lvlid2; 
dup = 1; 

i^i keep vlid2 key; 

pr^c sort; 
;J by vlid2; 

d&Me. dup; 

merge dup (in=a) dup2 (in =b) ; 
by vlid2; 
if b; 
dup = 1; 

proc sort; 

by vlid2 year month; 

data dup; 

set dup; 

by vlid2 year month; 
if last.vlid2; 

proc sort; 

by vlid2 rtype year month; 

proc sort data = vlupmerg; 

by vlid2 rtype year month; 

data vlupmerg; 

merge vlupmerg (in = a) dup (in =b) ; 
by vlid2 rtype year month; 
if a; 

if dup = 1 then delete; 
drop dup; 

/* ASSIGN NUMBER FOR EACH V1ID2 AND RTYPE */ 

*T-3 



proc sort; 

by key vlid2 year month; 

data vlupmerg; 

set vlupmerg; 

by key vlid2 year month; 

if first. key then count = 0; 

count = count +1; 

retain count; 

drop key year month; 

/******************************/ 

data frac; 

set vlupmerg; 
keep rtype ; 

proc sort nodupkey; 
by rtype; 

data trade; 

set laj . crsp; 
month = month (date) ; 
year = year (date) ; 
Q day = day (date); 
,fi if date >= ' 01janl980 1 d; 

keep month year; 

pfljc sort nodupkey; 

by year month; 

p^§c sql; 

Ijj create table temp as select rtype, year, month from frac, trade 
order by rtype, year, month; 

pf6"c datasets; 
iM delete trade; 

data frac; 

set vlupmerg; 
:; f year = year ( date ); 
p; month = month (date); 

own = raised/postvall; 

proc sort; 

by rtype year month; 

proc means data = frac noprint; 

var own postvall raised; 
by rtype year month; 

output out = stepl mean = own apost araised; 

data stepl; 

set stepl; 
code = 1; 

proc sort data = stepl; 

by rtype year month; 

proc sort data = temp; 

by rtype year month; 

/* calculate 12 month moving average */ 

data stepl; 

merge stepl (in = a) temp (in = b) ; 
by rtype year month; 
if b; 

if first. rtype then fracown = own; 

if own = . then fracown = fracown; /V9 4 



if own A = , then f racown = own; 
retain fracown; 

if first. rtype then avepost = apost; 
if apost = . then avepost = avepost; 
if apost A = . then avepost = apost; 
retain avepost; 

if first. rtype then averaise = araised; 
if araised = . then averaise = averaise; 
if araised A = . then averaise = araised; 
retain averaise; 

keep year month rtype fracown avepost averaise; 

proc sort; 

by rtype year month; 



data 
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stepl; 
set stepl; 

rtypel = lagl (rtype) 
rtype2 = lag2 (rtype) 
rtype3 = lag3 (rtype) 
rtype4 = lag4 (rtype) 
rtypeS = lags (rtype) 
rtypeS = lag6 (rtype) 
rtype7 = lag7 (rtype) 
rtype8 = lag8 (rtype) 
rtype9 = lag9 (rtype) 
rtypelO = lagl 0 (rtype) ; 
rtypell = lagll (rtype) ; 
lagl = lagl (fracown) ; 
lag2 - lag2 (fracown) 
lag3 = lag3 (fracown) 
lag4 = lag4 (fracown) 
lag5 = lag5 (fracown) 
lag6 = lag6 (fracown) 
lag7 = lag7 (fracown) 
lag8 = lag8 (fracown) 
lag9 = lag9 (fracown) 
laglO - laglO (fracown) 
lagll = lagll (fracown) 
laglp = lagl (avepost) ; 
lag2p = lag2 (avepost) ; 
lag3p = lag3 (avepost) ; 
lag4p = lag4 (avepost) ; 
lagBp - lags (avepost) ; 
lag6p = lag6 (avepost) ; 
lag7p = lag7 (avepost) ; 
lag8p = lag8 (avepost) ; 
lag9p = lag9 (avepost) ; 
laglOp = laglO (avepost) ; 
lagllp - lagll (avepost) ; 
laglr = lagl (averaise) 
lag2r = lag2 (averaise) 
lag3r = lag3 (averaise) 
lag4r = lag4 (averaise) 
lagSr = lags (averaise) 
lag6r = lag6 (averaise) 
lag7r = lag7 (averaise) 
lag8r = lag8 (averaise) 
lag9r = lag9 (averaise) 
laglOr = laglO (averaise) 
lagllr = lagll (averaise) 



if (rtype = rtypel & rtype = rtype 2 & rtype = rtype 3 & rtype = 
rtype4 & rtype = rtypeS & rtype = rtype 6 & rtype = rtype 7 & rtype 
= rtype 8 & rtype - rtype 9 & rtype = rtype 10 & rtype = rtypell) 
then fracown = (fracown + lag2 + lag3 + lag4 + lag5 + lag6 + 
lag7 + lag8 + lag9 + laglO + lagll) /12; 



if (rtype = rtypel & rtype = rtype 2 & rtype = rtype3 & rtype = 

rtype4 & rtype = rtypeS & rtype = rtype 6 & rtype = rtype 7 & rtype 



= rtypeS & rtype = rtype9 & rtype = rtypeio & rtype - rtvMii) 
lagep + lag 7 p + lagSp + lag9p + laglOp + lagllp)/i2; 9 P 

if (rtype = rtypel & rtype = rtype2 & rtype = rtypeS & rtvoe - 

- 5SeS f rt T 5 i rtype = rtypS & rt *2 = ^ e & - rtyP e 

- rtype 8 & rtype = rtype9 & rtype = rtypelO & rtype - rtvoelil 
then averaise = (averaise + laglr + lagl? + lag£Tlag4rTJaa5r 
+ lager + l ag7 r + l ag8 r + lag9r + laglOr + lagl? r Wi 2 9 
keep year month rtype fracown avepost averaise; 

data step2; 

set stepl; 
keep rtype; 

proc sort nodupkey; 
by rtype; 

data trade; 

set laj .crsp; 
month = month (date); 
year = year (date) ; 
day = day (date) ; 
if date >= ' 01janl980 'd; 
|*j keep month year; 

pr|c sort nodupkey; 
^ by year month; 

"•iisy 

Pipe sgl; 

{ lll£\yTt^tV£lll rtyP °- y '"' ™°- th «- 

pMb sort data = stepl; 

by rtype year month; 

PW sort data = temp; 
J- by rtype year month; 

da^m stepl; 
W merge temp (IN = A) STEPl (in = b) • 
f*k BY RTYPE YEAR MONTH; 
IF A; 



proc sort; 

by rtype year ; 

proc datasets; 

delete temp; 

PROC means DATA = STEPl NOPRINT; 

VAR FRACOWN AVEPOST AVERAISE * 
BY RTYPE YEAR; 

OUTPUT 0UT=STEP3 MEAN = FR AP AR; 

DATA STEPl; 

MERGE STEPl (in =a) Step3 ; 
BY RTYPE year; 
if a; 

IF fracown = . then fracown = fr- 
if avepost = . then avepost = ap' 
if averaise = . then averaise = a- 
drop JTYPE FREQ__ f r ap ar; 

proc sort; 

by rtype; 

PROC means DATA = STEPl NOPRINT; 

VAR FRACOWN AVEPOST AVERAISE • 
BY RTYPE ; 



OUTPUT OUT=STEP3 MEAN = FR AP AR; 

DATA STEP1; 

MERGE STEP1 ( in =a) step3; 
BY RTYPE ; 
if a; 

IF fracown = . then fracown = fr; 
if avepost = . then avepost = ap; 
if averaise = . then averaise = ar; 
drop JTYPE FREQ_ fr ap ar; 

/********/ 

proc datasets; 

delete frac temp; 

/* Step2: Merge STEP1 file with V1UPMERG to fill in missing data */ 

data vlup; 

set vlupmerg; 
year = year (date); 
month = month (date) ; 

proc sort; 
^ by rtype year month; 



pr-Hc sort data - stepl ; 
;J] by rtype year month; 

■>^\ 

d||a vlup; 

merge vlup (in = a) stepl; 
! *U by rtype year month; 
W if a; 

: * keep vlid2 rtype year month avepost fracown averaise postvall 
raised siccd count num mo; 

prpc sort; 

^!! fey vlid2 year month; 



daifca vlup; 

set vlup; 

if (raised = . & postvall = .) then delete; 
if (raised = . & postvall = .) then delete; 

if (raised A = . & postvall = .) then postvall = raised/ fracown; 
if (raised A = . & postvall - .) then postvall = raised/f racown; 
if (raised = . & postvall A = .) then raised = postvall*f racown; 
if (raised = . & postvall A = . ) then raised = postvall* fracown; 
drop averaise fracown avepost; 



/* Step 3 : Create a Postval and Preval File */ 

data vlup; 

set vlup; 

preval = postvall - raised; 



data check; 

set vlup; 
count2 = count; 

keep vlid2 rtype count year month count2; 



/***** ************ *******************^ 
/* Step 4: Filled date file */ 



data step4; 

set vlupmerg; 

keep vlid2 rtype count num; 

proc sort nodupkey; 

by vlid2 rtype count ; 

data trade; 

set laj . crsp; 

month = month (date) ; 

year = year (date); 

day = day (date) ; 

if date >= 1 01janl980 'd; 

keep date month year; 

proc sort nodupkey; 

by year month; 

proc sql; 

create table temp as select vlid2, rtype, count, date from step4 # 
trade order by vlid2, rtype, count, date; 

proc datasets ; 

delete trade step4; 

daffa temp; 
y **l set temp; 

month = month (date) ; 
41 year = year (date); 

O 

pr^p sort data = temp; 

by vlid2 year month; 

daltla step4; 

# set Vlup; 

|U postv = postvall; 

yi, keep vlid2 year month preval postv; 

pr6"p sort; 

4? by vlid2 year month; 

date^a step4; 

merge step4 (in=a) temp(in^b); 
by vlid2 year month; 
if b; 

keep vlid2 year month rtype preval postv count num mo; 

proc sort; 

by vlid2 count rtype year month; 



/* step 5: MERGE */ 

data vlup; 

set vlup; 

drop preval rtype count; 

proc sort; 

by vlid2 year month; 

proc sort data = step4; 

by vlid2 year month; 

data vlup; 

merge step4 (in=a) vlup(in=b); 
by vlid2 year month ; 
if a; 

frac = raised/postvall; 

^2.s 



/* Determine Fraction of company owned by VC */ 



proc sort; 

by vlid2 count rtype year month; 



/******* J 

/* Step 6: Create End for companies that have ACQ, IPO, or GONE */ 

data ipo; 

set vlupmerg; 

if (rtype = "ACQ" | rtype = "IPO") ; 
year = year (date); 
month = month (date); 
remove = 1; 

keep vlid2 year month rtype remove; 

proc sort nodupkey; 

by vlid2 year month rtype; 

data end; 

set ipo; 

if rtype = "IPO" then key = "I"; 
Q if rtype = "ACQ" then key = "A"; 
3| drop rtype; 

MERGE STEP 6 WITH STEP 7 */ 

prg|; sort data = vlup; 
;; ,f| by vlid2 year month; 

W 

pr'6'c sort data = end; 

by vlid2 year month; 

dajfea vlup; 

| s - merge vlup (in=a) end (in=b) ; 
by vlid2 year month; 

W if remove = . then remove = 0; 



proc sort ; 

by vlid2 rtype COUNT year month key ; 

data vlup; 

set vlup; 

by vlid2 rtype COUNT year month ; 
if first . COUNT then rem = remove; 
if remove A = 0 then rem = remove; 
rem = rem; 
retain rem; 

if first. COUNT then rem2 = remove2; 
if remove2 0 then rem2 = remove2; 
rem2 = rem2; 
retain rem2; 

if first. COUNT then sic = siccd; 

if siccd = . then sic = sic; 
if siccd . then sic = siccd; 

retain sic; 

if (rem = 1 & Key = " " & depr = . ) then delete; 
if (rem2 = l & Key = « " & depr = .) then delete; 
if sic = . then delete; 

proc sort; 

by vlid2 count rtype year month; 



/* step 7 : Correct starting point of Each Fund */ 



data step7; 

set vlupmerg; 

rtype2 = rtype ; 

year = year (date) ; 

month = month (date) ; 

keep vlid2 year month rtype rtype2; 

proc sort nodupkey; 

by vlid2 rtype year month; 

proc sort data = vlup; 

by vlid2 rtype year month; 

data vlup; 

merge vlup (in = a) step7 (in=b) ; 
by vlid2 rtype year month; 
if a; 

proc sort; 

by count vlid2 rtype year month; 

data vlup; 

set vlup; 

by vlid2 count rtype year month; 
p if first. vlid2 then r = rtype2; 
;J| if rtype2 A = » " then r = rtype; 

retain r; 
^ if r A = rtype then delete; 
If if de P r = 24 then postvall = 0; 
|j drop r rtype2 rem remove remove2; 

/ *. g new - Determine fraction held by VC */ 

proc sort; 

f ; h y count vlid2 rtype year month; 

prop sort data = check; 

> by count vlid2 rtype year month; 

dai!a vlup; 

U merge vlup (in = a) check (in =b) ; 
by count vlid2 rtype year month; 
if a; 

proc sort; 

by count vlid2 rtype year month; 

data vlup; 

set vlup; 

by count vlid2 rtype year month; 
if first. count then check = count2 * 
if count2 = . then check = check; 
xf count2 A = . then check = count 2 • 
retain check; 

if count check then delete; 
drop check count2; 

data vlup; 

set vlup; 

by vlid2 count rtype year month; 
code = 0; 

if first. count then code = l ; 

data vlup; 

set vlup; 

by viid2 count rtype year month; 

if first. count then fracown = f rac • 

if (preval : . and frac = .) then fracown 

if (preval =. and code ^ 1) then fracown 
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preval/postvall; 
retain fracown; 
drop code Ivid lrtype; 



/****************** J 

data vlup; 
set vlup; 
siccd = sic; 
dnum = siccd; 
indus = 'XXXXXXXXX'; 

if (0100 <= dnum <= 0799 | dnum « 2048 | 0910 <= dnum <= 0919) then indus 
= ' AGRIC ' ; 

if (2000 <= dnum <= 2046 | 2050 <= dnum <= 2063 | 2070 <= dnum <= 2079 | 
2090 <= dnum <= 2095 | 2098 

<= dnum <= 2099 ) then indus = 'FOOD'; 

if (2064 <= dnum <= 2068 ] 2086 <= dnum <= 2087 | 2096 <= dnum <= 
2097) then indus = 'SODA'; 

if (2080 <= dnum <= 2085) then indus = 'BEER' ; 
if (2100 <= dnum <= 2199) then indus - 'SMOKE'; 

if (0920 <= dnum <= 0999 | 3650 <= dnum <= 3652 | dnum = 3732 | 3930 <= 

dnum <= 3931 | 3940 <= dnum <= 3949 ) then indus = 'TOYS'; 

if (7800 <= dnum <= 7833 | 7840 <= dnum <= 7841 | dnum = 7900 | 7910 <= 

daum <= 7911 j 7920 <= dnum 

7933 | 7940 <= dnum <= 7949 [ dnum = 7980 | 7990 <= dnum <= 7999) then 

iiiffus = ' FUN 1 ; 

^Jf (2700 <= dnum <= 2749 | 2770 <= dnum <= 2771 1 2780 <= dnum <= 2789 1 
27JJ0 <= dnum <= 2799 ) then 
iEfadus - 1 BOOKS * ; 

^ { dnum = 2047 | 2391 <= dnum <=2392 | 2510 <= dnum <= 2519 | 

;|590 <= dnum <= 2599 | 2840 <= dnum <=2844 | 3160 <= dnum <=316l| 3170 

<4^num <= 3172 |3190 <= dnum 
UU 3199 | dnum = 3229 [ dnum =3260 | 3262 <= dnum <=3263 | dnum = 3269 | 

32#0 <= dnum <= 3231 | 3630 

dnum <= 3639 | 3750 <= dnum <= 3751 1 dnum = 3800 1 3860 <= dnum <= 

38^3- | 3870 

K= dnum 3873 | 3910 <= dnum <= 3911 | 3914 <= dnum <= 3915 (3960 
<^ ! ]&num <= 3962 | 

dium = 3991 | dnum = 3995) then indus =* 1 HSHLD ' ; 

%S (2300 <= dnum <=2390 | 3020 <= dnum <^3021 | 3100 <= dnum <=311l| 

%130 <= dnum <= 3131 | 3140 <= dnum <= 3151 | 3963 <= dnum <= 3965) 
then indus = ' CLTHS ' ; 

if (8000 <= dnum <= 8099) then indus « 'HLTH' ; 

if (dnum = 3693 ) 3840 dnum <= 3851) then indus = 'MEDEQ' ; 

if {2830 <= dnum <= 2831 | 2833 <= dnum <= 2836) then indus = 'DRUGS 1 ; 

if (2800 <= dnum <= 2829 [ 2850 <= dnum <= 2899) then indus = ' CHEMS ' ; 

if (dnum = 3031 | dnum = 3041 | 3050 <= dnum <= 3053 | 3060 <= dnum <= 
3099) then indus = 'RUBBR' ; 



if (2200 <= dnum <= 2284 
2295)2297 <= dnum <= 2299 



2280 <= dnum <= 2284 | 2290 <= dnum <= 
2393 < = 



dnum <=2395 | 2397 dnum <=2399) then indus = ' TXTLS T ; 

if (0800 <= dnum <= 0899 | 2400 <=dnum<=2439 | 2450<=dnum <=2459| 2490 
<=dnum<=2499 | 2660 <=dnum <= 

2661 | 2950<=dnum <=2952 | dnum = 3200 | 3210 <=dnum <=321l| 
3240<=dnum<=3241 | 3250 <= dnum=3259| 

dnum = 3261 | dnum = 3264(3270 <= dnum <= 3275 | 3280 <= dnum <= 3281 | 
3290 <= dnum <= 3293 |3295 

<= dnum <= 3299)3420 <= dnum <= 3433 | 3440 <= dnum <= 3442) dnum = 
3446 | 3448 <= dnum <= 3452 | 

3490 <= dnum <= 3499|dnum = 3996) then indus = ' BLDMT r ; 

if (1500 <= dnum <= 1511 | 1520 <=dnum<= 1549 | 160 0<=dnum<=1699 | 
1700<=dnum<=1799) then indus = 

' CNSTR 1 ; 

if (dnum = 3300) 3310 <=dnum<=3317 | 3320<=dnum<=3325 |3330 <=dnum <= 
3341 | 3350<= dnum <=3357| 3360 

<=dnum <=3369|3370 <=dnum<=3379 | 3390<=dnum <=3399) then indus = 
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' STEEL ' ; 

if (dnum=3400 | 3443<=dnum<=3444 | 346Q<=dnum<=3479) then indus = ' FABPR ' ; 
if (3510<=dnum<=3536 | dnum = 3538 | 3540<=dnum<=3569 | 3580<= dnum <= 
3582 | 3585 <=dnum<= 3586 | 3589 

<=dnum<= 3599) then indus = ' MACH 1 ; 

if (dnum = 3600 | 3610 <= dnum <= 3613 |3620 <=dnum<=3621 | 
3623<=dnum<=362 9 | 3 64 0<=dnum<=3646 | 3648<=dnum<=3649 | 
dnum = 3660 | 3690 dnum <= 3692|dnum = 3699) then indus = 1 ELCEQ 1 / 
if (dnum = 

2296 | dnum=2396 | 3010<=dnum<=3011 1 dnum=:3537 | dnum=3647 | dnum=3694 | 

dnum = 3700)3710 <= dnum <= 3711 | 3713 <= dnum 
<=3716|3790<=dnum<=3792 |dnum=3799) then indus ='AUTOS'; 

if (3720<=dnum<=372l| 3723 <= dnum <= 3725 |3728 <=dnum<= 3729) then 
indus = 'AERO 1 ; 



if (3730<=dnum<=3731 
if (3480<=dnum<=3489 



3740<=dnum<=3743) then indus = 'SHIPS'; 
3760<=dnum<=3769|dnum=3795) then indus = 'GUNS'; 
if (1040 <^dnum<=1049) then indus = 'GOLD'; 

if (1000<=:dnum<=1039|l050<=dnum<=1119[l400<=dnum<=1499) then indus = 
'MINES ' ; 

if (1200 <= dnum <= 1299) then indus = 'COAL'; 

if (dnum= 1300 1310<=dnum<=1339 | 1370 <=dnum<- 1382 | dnum = 1389 | 
2900<=dnum<=2912 

2990<=dnum<=2999) then indus = 'OIL*; 

if (dnum = 4900 | 4910<=dnum<=4911 (4920 <=dnum<= 4925 |4930 <=dnum<= 
49SS | 4939 <=dnum<= 4942) then 
•|hdus = 'UTIL 1 ; 

|fijE (dnum = 4800 | 4810 <=dnum<= 4813 (4820 <=dnum<= 4822 (4830 <=dnum<= 
48 : 4| 1 4880 <= dnum <= 4892 | 

ifium = 4899) then indus = 'TELCM'; 

|| (7020 <= dnum <= 7021 | 703 0<=dnum<=7033 | dnum = 7200 |7210 <= 
dm§i<=7212 1 7214 <= dnum <= 7217 1 7219 

4|dnum<= 7221 | 7230 <=dnum<= 7231 | 7240 <=dnum<= 7241 | 7250 
<=|ruim<= 7251 | 7260 <=dnum<= 7299] 

dnum=7395|dnum=7500|7520<=dnum<^7549| dnum = 7600 |dnum = 7620 | 7622 
<=gnum<= 7623 | 7629<=dnum<= 7631 

11640 <=dnum<= 7641 |7690 <=dnum<=7699 j 8100<=dnum<=8199 | 

&£00<=dnum<=8299 | 8300<=dnum<=8399 | 8400<=dnum<=8499 | 8600<=dnum<=8699 | 

|S00<=dnum<=8899) then indus = 'PERSV; 

i ; | (2750<^dnum<=2759 ) dnum =3993 1 dnum = 7218 | dnum = 7300 1 7310 
<=(|ixum<=7342 | dnum = 

f^49 | 7350 <=dnum<=7353 | 7359 <=dnum<=7372 | 7374<=dnum<=73 85 | 
73#f<=dnum<= 7394 | 7396<=dnum<^ 7397 

| dnum = 7399|7510<=dnum<=7519| dnum = 8700 | 8710 <=dnum<= 8713 | 
8720<=dnum<= 8721 j 8730<=dnum<= 

8734 | 8740 <=dnum<=8748 | 8900 <=dnum<= 8911 |8920 <=dnum<= 8999) then 
indus = 'BUSSV ; 

if (3570 <=dnum<=3579 (3680 <= dnum 3689) dnum = 3695|dnum = 7373) 
then indus = ' COMPS ' ; 

if (dnum = 3622 | 3661 <=dnum<= 3666 | dnum=3669 | 3670 <=dnum<= 3679 | 
dnum=3810 |dnum= 3812) then 
indus = ' CHIPS ' ; 

if (dnum=381l| 3820 <=dnum<=3827 | 3829 <=dnum<= 3839) then indus = 
' LABEQ ' ; 

if (2520<=dnum<=2549 | 
2600<=dnum<=2639 | 2670<=dnum<=2699 \ 2760<=dnum<=2761 | 

3950<=dnum<=3955) then indus = 'PAPER'; 

if (2440<=dnum<=2449 | 2640<=dnum<=2659 | 3220<=dnum<=3221 | 3410<=dnum<=3412) 
then indus = ' BOXES ' ; 

if (4000<=dnum<=4013 |4040<=dnum<= 4049 | dnum=4100 | 4110 <=dnum<= 4121 | 
4130<=dnum<= 4131 j 

4140<=dnum<= 4142 | 4150<=dnum<= 4151 | 4170 <=dnum<= 4173 | 4190 
<=dnum<=4199|dnum= 4200 | 

4210 <=dnum<=423l|4240 <=dnum<= 4249 | 4400<=dnum<=4499 | 

4500<=dnum<=4599|4600<=dnum<=4699(dnum==4700| 4710 <=dnum<= 4712] 4720 
<=dnum<= 4749 | dnum = 

4780 | 4782 <=dnum<= 4785 | dnum= 4789) then indus = 'TRANS'; 

if (dnum = 5000 | 5010<=dnum<= 5015 | 5020<=dnum<= 5023 | 5030 <- dnum 
<=5060] 5063<=dnum<= 5065 | 

5070<=dnum<= 5078 | 5080<=dnum<= 5088 | 5090<=dnum<= 5094 | 5099<=dnum<= 
5100 | 
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5ll0<=dnum<=5113 | 5120<=dnum<= 5122 | 5130<=dnum<= 5172 | 5180<=dnum<= 
5182 | 5190<=dnum<= 5199) then 
indus = ' WHLSL » ; 

if (dnum=5200 |5210 <=dnum<=5231 | 5250<=dnum<= 5251 | 5260<=dnum<= 5261 
| 5270<=dnum<= 527l|dnum= 5300 | 

5310 <=dnum<= 5311 | dnum= 5320 | 533 0<=dnum<= 5331 | dnum= 5334 | 
5340<=dnum<= 5349 | 5390<=dnum<= 5400 | 

5410<=dnum<= 5412 | 5420<=dnum<= 5469 | 5490<=dnum<= 5500 | 5510<=dnum<= 
5579 | 

5590<=dnum<= 5700 | 5710<=dnum<= 5722 | 5730<=dnum<= 5736 | 5750<=dnum<= 
5799 | dnum=5900| 5910<=dnum<= 

5912 | 5920<=dnum<= 5932 | 5940<=dnum<= 5990 | 5992<=dnum<= 5995] dnum = 
5999) 

then indus = ' RTAIL 1 ; 

if (5800 <= dnum <= 5819 | 5820<=dnum<=5829 | 5890<=dnum<=5899 | dnum » 
7000 | 7010 <=dnum<=7019 | 

7040<=dnum<=7049 | dnum = 7213) then indus = 'MEALS'; 

if (dnum=6000| 6010 <= dnum <= 6036 | 6040<=dnum<= 6062 | 6080<=dnum<= 6082 
| 6090 <=dnum<= 6100 

6ll0<=dnum<= 6113 6120<=dnum<= 6179) 6l90<=dnum<= 6199) then indus = 
' BANKS ' ; 

if (dnum = 6300)6310 <= dnum < = 6331 | 6350 <=dnum<=6351 | 6360<=dnum<= 
6361) 6370<=dnum<= 6379 j 

6390<=dnum<= 6399) 6400 <=dnum<= 6411) then indus = 'INSUR 1 ; 

if (dnum=6500| dnum=6510 | 6512 <= dnum <= 6515) 6517<=dnum<= 6519 | 
6^Stl<=dnum<=: 6532 | 6540<=dnum<= 

4|41| 6550<=dnum<= 6553) 6590<=dnum<=6599 | 6610<=dnum<= 6611) then indus 

Sfc (6200 <= dnum <= 6299 | dnum=6700| 6710 <=dnum<= 6725 | 6730<=dnum<- 
67l$| 6740<=dnum<= 6779 | 

|f 90<==dnum<== 6795| 6798<=dnum<= 6799) then indus = 'FIN'; 

Si (4950<=dnum<= 4961 | 4970<=dnum<= 4971 | 4990<=dnum<= 4991 ) then 
in#s = ' OTHER 1 ; 

prgc sort; 

l L by year month indus ; 

data" indus ; 

H set laj .indus48_5; 

pre*© sort; 

CI by Y ear month indus; 

j * ********************/ 

data vlup; 

merge vlup (in=a) indus ; 
by year month indus; 
if a; 

if (rtype = "ACQ " | rtype = "IPO") then delete; 
if return - . then delete; 



proc sort data = vlup; 

by vlid2 count rtype year month; 

data vlup; 

set vlup; 

by vlid2 count rtype year month; 

if first. count then pricel = raised; 

if first. count then postl = postvall; 

if preval then pricel = f racown*postvall; 

IF PREVAL = . THEN PRICE1=PRICE* (1+RETURN) ; 

if preval A =. then postl = postvall; 

IF PREVAL = . THEN P0ST1=P0ST* (1+RETURN) ; 

if key = "A" then pricel = fracown * postvall; 
if key = "I" then pricel = fracown * postvall; 
price = pricel; 
post = postl; 
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retain price; 
retain post; 



value 0 = price; 

keep vlid2 rtype year month postvall raised preval valueO fracown 
return pricel depr key count num mo post; 



proc sort; 

by vlid2 rtype year month; 



data vlup; 

set vlup; 

by vlid2 rtype year month; 
if first. vlid2 then numtemp = num; 
if num A = . then numtemp = num; 
retain numtemp; 

data perg.index29; 

set vlup; 
ends as; 



Pi 



P 



IDMERG5 . SAS 



options linesize = 100 ps = 20000; 



filename idl 1 ~/vcdata2/idl .prn f ; 

filename id2 1 ~/vcdata2/id2 .prn 1 ; 

filename id3 ' ~/vcdata2/id3 .prn' ; 
libname laj 1 -/vecon/ ' ; 

libname laj 2 ' -/vent one/ ? ; 

libname perg f -/vcdata2 / r ; 

libname data '-/data/ 1 ; 



/* READ IN DATA */ 

data idl; 

infile idl lrecl = 30 missover; 

input @l siccd 1-7 @9 vlid 9-13 @16 vlid2 16-20 @23 veid 23-27 

data id2; 

infile id2 lrecl = 30 missover; 

input @1 siccd 1-8 @11 vlid 11 - 15 @17 vlid2 17-23 @25 veid 
25-30; 

13 

d#a id3; 

infile id3 lrecl = 26 missover ; 
jfi input @1 siccd 1 - 6 @7 vlid 7-13 @14 vlid2 14-20 @17 veid 21 - 

26; 

d&fca id; 

set idl id3 id2; 
|ij if (vlid = . & vlid2 = .) then delete; 
keep vlid vlid2 siccd veid; 

Venture One Data - two files */ 

dapa vl; 
fl set laj2.vlid_l; 

£\. findate = tranwrd (findate, 1 /' t ' 1 ) ; 

■' r# findate = tranwrd (findate, '^M f , ' 1 ) ; 

findate = compress (findate) ; 
sasdate = input (findate ,mmddyy6. ) ; 

year= year (sasdate) ; 
month = month (sasdate) ; 
day = day (sasdate) ; 
date = mdy (month, day, year) ; 
format date mmddyy6 . ; 

data vlup; 

set laj 2 . vlupdate ; 

month = month (findate) ; 

year = year (findate) ; 

day = day (findate) ; 

date = mdy (month, day, year) ; 

format date mmddyy6 . ; 

/* step i: MERGE OF ID and Venture One Data */ 

data id; 

set id; 

keep vlid2 siccd; 

proc sort nodupkey; 
by vlid2; 

proc sort data = vlup; 
by vlid2; 
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data vlupmerg; 

merge id (in = a) vlup (in=b) ; 
by vlid2; 
if b; 

conamel =coname; 
postvall = postval; 
rnuml = rclass; 

if (vlid2 = 1716 & rtype = "1st") then 
if (vlid2 - 1716 & rtype = "2nd") then 
if (vlid2 = 1716 Sc rtype = "3rd") then 
if r = 3 then rtype = "3rd"; 
if r = 1 then rtype = "1st"; 
if r = 2 then rtype = "2nd"; 



r =3; 
r = 1; 
r =2; 



if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
if rtype 
(rtype 
" LBO " | 
rtype = 
rtype = 
if siccd = 
keep vlid2 



"1st"; 
"2nd"; 



if 



'IstA" then rtype = 
T 2ndA" then rtype = 
'LaterA" then rtype = "Later"; 
'3rdA" then rtype = "3rd"; 
•LBOA" then rtype = "LBO" ; 
•CORPA" then rtype = "CORP"; 
r DEBTA" then rtype = "Debt"; 
f MezzA" then rtype = "Mezz"; 
'PEA" then rtype = "PE"; 
PPEA" then rtype = "PPE"; 
PPPEA" then rtype = "PPPE"; 
Reg DA" then rtype = "Reg DA" ; 
Reg SA" then rtype = "Reg SA" ; 
■rlst" then delete ; 
'r2nd" then delete; 
•r3rd" then delete; 
r r4th" then delete; 
•rLater" then delete; 
■rMezz" then delete; 
'Second" then rtype = "2nd"; 
'2P0" then delete; 
2POA" then delete; 
PE" then delete; 
Reg DA" then delete ; 
Reg SA" then delete; 
Seed" then delete; 
= "PPPE" | rtype = "PPE" | rtype = "Debt" I rtype 
rtype = "DebtA" | rtype = " LBOA" | rtype = "MEZZ" 
|MER" I rtype = "MEZZA" | rtype = "Mezz"| rtype ="MezzA" 
Bridge" | rtype = "Recap" | rtype = "Rest") then delete; 
. then delete; 

date postvall siccd rnuml rtype raised; 



/* ELIMINATES DUPLICATES */ 

data vlup; 

set V1UPMERG; 
year=year (date) ; 
month=month(date) ; 

proc sort; 

by vlid2 year month; 

data stepl; 

set vlup; 

lvlid2 = lag(vlid2) ; 
lyear = lag (year) ; 
lmonth = lag (month); 
Ipostval = lag (postvall) ; 

if ^ (year = lyear and month = lmonth and vl . d2 = lvlid2) then dup 
if dup =1; 

keep vlid2 year month dup; 



proc sort; 

by vlid2 year month; 

data nodup; 

merge vlup(in =a) stepl; 
by vlid2 year month; 
if dup = . ; 
drop dup; 

data dup; 

merge vlup(in = a) stepl ; 
by vlid2 year month ; 
if dup = . then delete; 

proc sort; 

by vlid2 year month descending postvall; 

data dup; 

set dup; 

lpostvall = lag (postvall) ; 
lvlid2 = lag(vlid2); 
lmonth = lag (month); 
lyear = lag (year); 

d&ia dup; 
%! set dup; 

41 if (vlid2 = lvlid2 & year = lyear & month = lmonth and postvall = 

=:.Q .) then post = lpostvall; 

Q if (postvall = . & post .) then postvall = post; 

m drop lvlid2 lyear lmonth lpostvall post dup; 

dMIa all; 
III set dup nodup; 

p^gc sort; 
JU by vlid2 rtype year month; 

/f^INPUT MISSING IPO & ACQ VALUES */ 

d^ga missval; 

JU infile ' «/vcdata2/missipo.prn I lrecl = 48 missover; 

input @1 vlid2 1-8 ©10 rtype $ 10-15 @17 postval 17-32 @34 month 
34-41 @43 year 43-48; 
missval = postval ; 
drop postval; 

proc sort; 

by vlid2 rtype year month; 

data all; 

merge all(in=a) missval (in=b) ; 
by vlid2 rtype year month; 
if a; 

if ((rtype = "ACQ" | rtype = "IPO") and postvall = .) then 
postvall = missval; 
drop missval; 

proc sort; 

by vlid2 date; 



/* REASSIGN ROUND NUMBERS */ 

data all; 

set all; 

by vlid2 date; 

if first. vlid2 then num = 0; 

num = num + 1; 

retain num; 
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proc sort; 

by year month; 

/* ASSIGN A NUMBER TO CALCULATE 

data trade; 

set data.crsp; 

month = month ( date); 

year = year (date) ; 

day = day (date) ; 

if date >= ' 01janl980 »d; 

key = 1; 

keep date month year day 

proc sort nodupkey; 

by key year month; 

data trade; 

set trade; 
by key year month; 
if first. key then mo = 0; 
mo = mo + 1; 
retain mo; 
drop key; 
|!| keep month year mo; 

pr^>c sort; 

t>Y year month; 

diila all; 
10 merge all (in =a) trade; 
%!!| by year month; 

ifl " if a; 

proc sort; 
p* by vlid2 vlid2 year month; 

d&±a perg. vlupmergS; 
' p set all; 

Pffc print data = perg. vlupmerg5 ; 
ENDSAS; 



NUMBER OF DAYS UNTIL NEXT FUNDING 



key; 



MACR0LIQ6 . SAS 

options Is = 80 ps = 20000; 

libname macroliq 1 -/macro/ ' ; 
libname perg » -/microliq/ 1 ; 
libname perg2 ' ~/vcdata2/ ' ; 
filename tradedt 1 ~/vcdata2 /dates .txt ' ; 
libname laj 1 -/data/ » ; 

/* Calculation of LIQ_12 */ 

data first; 

set perg2 . vlupmerg5 ; 
if num = l; 

if (rtype = "ACQ" | rtype = "IPO") then delete; 
month = month (date); 
year = year (date); 

proc sort; 

by year month ; 

proc means data = first noprint; 
_ var num; 
%J by year month; 
%3 output out = first sum = key; 

la. first; 

set first; 
lkey7 = lag7 (key) ; 
-| IkeyS = lags (key); 
%l lkey9 = lag9 (key) ; 
|il IkeylO = laglO(key) 
lkeyll = lagll(key) 
% ^ lkeyl2 = lagl2 (key) 
f : lkeyl3 = lagl3 (key) , 
lkeyl4 = lagl4 (key) , 
IkeylS = lagis (key) 
4~ lkeyl6 = lagl6 (key) 
O lkeyl7 = lagl7 (key) 
£= IkeylS = lagl8 (key) 
lkeyl9 = lagl9(key) 
lkey20 = lag2 0 (key) 
lkey21 = lag21(key) 
lkey22 = lag22 (key) 
lkey23 = lag23 (key) 
lkey24 = lag24 (key) 

total = lkey7 + IkeyS + lkey9 + IkeylO + lkeyll + lkeyl2 + 

^t BY l 3 , + ^ eyl4 + lk ^yl5 + lkeyie + lkeyl7 + IkeylS + lkeyl9 + lkey2 0 + 
lkey21 + lkey22 + lkey23 + lkey24; * 
keep year month total; 

data secondl; 

set perg2 . vlupmergB ; 
if num = 2; 
month == month (date); 
year = year (date) ; 
key = 1; 

keep year month num vlid2 rtype key; 

proc sort; 

by year month; 

proc means data = secondl noprint; 
var key; 
by year month; 

output out = second sum = num; 

data all; 

merge first second; 
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by year month; 

fracl2 = num/ total; 

keep year month num total fracl2; 

data macroliq.fracl2; 
set all; 

keep year month fracl2; 

proc print data = all; 
ends as ; 
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REGRESS 2 . SAS 
options Is = 80 ps 



= 20000; 



libname perg ' -/microliq/ ' ; 
libname macro '-/macro/ 1 ; 

data index; 

set perg.price_depr; 
index2 = finret; 
if year > 1986; 
drop finret; 

proc sort; 

by year month; 

data nasdaq; 

infile 1 -/liquid/nasdret .prn ' lrecl = 19; 
input @1 date mmddyyS . @11 ret 11 -19; 
month = month (date); 
year = year (date); 
if year > 1986; 
U keep year month ret; 

prgc sort; 
.Jl by year month; 

d<|tfa fracl2; 

set macro. fracl2 ; 
4|| if year > 1986; 

prpc sort; 

: by year month; 

di#a frac2L; 

set macro. frac2L; 
if year > 1986; 

p^gc sort; 

r by year month; 

data regress 1; 

merge fracl2 frac2L; 
by year month; 

data stepl2; 

set macro. stepl2; 
if year > 1986; 

proc sort; 

by year month; 

data step2L; 

set macro. step2L; 
if year > 1986; 

proc sort; 

by year month; 

data regress2; 

merge stepl2 step2L; 
by year month; 

data regress; 

merge regressl regress2; 
by year month; 

keep year month fracl2 frac2L stepupl2 stepup2L; 



data regress; 

merge regress nasdaq; 
by year month; 



data regress; 

merge regress index; 
by year month; 
key = 1; 

if fracl2 = . then fracl2 = 0; 
if frac2L = . then frac2L = 0; 
if stepupl2 = . then stepup!2 = 0; 
if stepup2L = . then stepup2L = 0; 
if year >=1989; 

proc sort; 

by key; 

proc means data = regress noprint; 

var fracl2 frac2L stepupl2 stepup2L ret; 

output out = mean mean = mfrac!2 mfrac2L mstepl2 mstep2L mret; 

data mean; 

set mean; 
key = 1; 

keep mfracl2 mfrac2L mstep!2 mstep2L key mret; 

d&Ma regress; 
*ii merge regress (in=a) mean; 
\i) ^ key; 

Q if a; 

dmfracl2 = fracl2 - mfracl2; 

dmfrac2L = frac2L - mfrac2L; 
J*? dmstep!2 = stepupl2 - mstepl2; 
*M dmstep2L = stepup2L - mstep2L; 
n dmret = ret - mret; 



prop univariate data = regress noprint ; 
#\i var fracl2 frac2L stepupl2 stepup2L ret dmfracl2 dmfrac2L 
!p dmstep!2 dmstep2L dmret ; 

| 151 l output out = trim p5 = fracl2_5 frac2L__5 stepl2_5 step2L_5 ret_5 
dmfrac!2_5 dmfrac2L_5 dmstepl2_5 dmstep2L_5 dmret_5 
p95 = fracl2_95 frac2L__95 stepl2_95 step2L_95 ret_95 
dmfracl2_95 dmfrac2L_95 dmstepl2_95 dmstep2L__95 dmret_95; 

data trim; 

set trim; 
key =1; 

data regress; 

merge regress (in = a) trim; 

by key; 

if a; 

drop key; 

if year >=1989; 

/* Create Lags */ 

proc sort; 

by year month; 

data regress; 

set regress; 
by year month; 

if first. year then lfracl2 = .; 
if first. year then lfrac2L = .; 
if first. year then lstepl2 = .; 
if first. year then lstep2L = . ; 
if first. year then ldmfrac!2 = .; 



if first. year then ldmfrac2L 
if first. year then ldmstepl2 
if first. year then ldmstep2Ij 
lfracl2 = lag(fracl2); 
lfrac2L = lag (f rac2L) ; 
lstepl2 = lag(stepupl2) ; 
lstep2L = lag(stepup2L) ; 
ldmfrac!2 = lag (dmf racl2) ; 
ldmfrac2L = lag (dmf rac2L) ; 
ldmstepl2 = lag (dmstepl2) ; 
ldmstep2L = lag (dmstep2L) ; 



/* No trim, no demean */ 



proc reg data = regress outest = reg ; 

model index2 = ret lfracl2 lfrac2L lstepl2 lstep2L; 



/* Demean, no trim */ 

proc reg data = regress outest = reg2 noprint; 

= dmret ldmfracl2 ldmfrac2L ldmstep!2 ldmstep2L; 



dmfracl2_5) then dmfracl2 = dmfrac!2_5; 
dmfracl2_95) then dmfracl2 = dmfracl2_95; 
dmfrac2L_5) then dmfrac2L = dmfrac2L_5; 
dmfrac2L_95) then dmfrac2L « dmf rac2L_95 ; 
dmstepl2_5) then dmstepl2 = dmstepl2_5; 
dmstepl2_95) then dmstepl2 = dmstepl2_95; 
dmstep2L_5) then dmstep2L = dmstep2L_5; 
dmstep2Ii_95) then dmstep2Ii = dmstep2L_95; 
if (dmret < dmret_5) then dmret = dmret_5; 
H if (dmret > dmret_95) then dmret = dmret_95; 

prjgc sort; 

by year month; 

dafta. trim; 

set trim; 

by year month; 

if first. year then ldmfracl2 = .; 
if first. year then ldmfrac2L = .; 
if first. year then ldmstepl2 = .; 
if first. year then ldmstep2L - . ; 
Idmfracl2 = lag (dmf racl2) ; 
ldmfrac2L = lag (dmf rac2L) ; 
ldmstepl2 = lag (dmstepl2) ; 
ldmstep2L = lag(dmstep2L) ; 

proc reg data = trim outest = trim2 noprint; 

model index2 = dmret ldmfracl2 ldmfrac2L ldmstepl2 ldmstep2L; 

data trim; 

set reg2; 
key =1; 

cdmfracl2 = ldmfracl2 ; 
cdmfrac2L = ldmfrac2L; 
cdmstepl2 = ldmstepl2; 
cdmstep2L = ldmstep2L; 

keep cdmfracl2 cdmfrac2L cdmstepl2 cdmstep2L ; 

data trim; 

set trim; 
key = 1; 



model index2 

/* Demean, trim */ 

dap a trim; 

J\ set regress; 

*l\ if (dmfracl2 < 

2f if (dmfracl2 > 

%J if (dmfrac2L < 

ill if (dmfrac2L > 

m if (dmstepl2 < 

III if (dmstepl2 > 

if (dmstep2L < 

'I _ if (dmstep2L > 



data regress; 



AH3 



set regress; 
key = 1; 

data trim; 

merge regress (in =a) trim; 
by key; 
if a; 

adjustment = dmf racl2*cdmf rac!2 + dmfrac2L * cdmfrac2L + 
dmstepl2 * cdmstepl2 + dmstep2L * cdmstep2L; 

keep dmfracl2 dmfrac2L dmstepl2 dmstep2L cdmfracl2 cdmfrac2L 
cdmstepl2 cdmstep2L year month adjustment; 
keep year month adjustment; 

data index; 

set perg.index29_l; 

proc sort; 

by year month; 

data index; 

merge index (in=a) trim; 
by year month; 
if a; 

value2 = valuel* (l+adjustment) ; 

da.|a macro. index29_2; 
set index; 

erkSsas; 

IP 
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